home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
misc
/
wclass20.zip
/
ADAUSER.ADA
< prev
next >
Wrap
Text File
|
1994-12-18
|
966b
|
28 lines
--Getting Started Ada Script
--The purpose of this script is to generate an Ada package
--Created by Richard Felsinger, RCF Associates, 960 Scottland Dr
--Mt Pleasant, SC 29464 e-mail 71162,755@compuserve.com
--1-803-881-3648
--Enter the basic Ada types in the attribute and operation
--specification forms: BOOLEAN, CHARACTER, INTEGER, FLOAT,
--POSITIVE, NATURAL, DURATION, STRING
--
--Enter operation parameters in the operation specification
--form parameter_type parameter_name. Then use the variable
--
--Question - What additional With Class script variables or additional
--dialog boxes, text boxes, or check boxes are required to fully
--support Ada-83 and Ada-9X. Please submit new Ada scripts.
----------------------------------------------------------------------------------
with text_io; use text_io;
with Cars; use Cars;
procedure adauser is
a_AdaCar : Car;
begin
Text_io.Put ("This is a test.");
end adauser;